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Konkurrence: 

Hvem kan lave den bedste 
professor-terning på VIC? 


programmerne på kassette¬ 
bånd eller diskette. 

Det vil også være meget vel¬ 
komment, om deltagerne i 
konkurrencen fortæller lidt 
om deres programmeringsar¬ 
bejde, f.eks. om der er fundet 
særligt snedige løsninger på 
de problemer, der melder sig 
undervejs. Vi må naturligvis 


VI & VIC udskriver hermed 
en konkurrence, der kan 
skaffe den heldige (og dygti¬ 
ge) vinder en maskinkode- 
monitor og forhåbentlig give 
alle deltagere nogle interes¬ 
sante timers arbejde med løs¬ 
ningen. 

Opgaven består i at lave et 
program på en standard- 
VIC, der kan simulere en så¬ 
kaldt professor-terning 
(Rubik’s Cube). Alle kender 
vist en sådan plast-terning, 
hvor hver side har sin farve. 
Terningen er sammensat af 
mindre terninger, så hver side 
er delt i ni kvadrater. Kon¬ 
struktionen tillader, at hver 
side drejes i sit eget plan, så de 
otte terninger skifter plads, 
mens den niende i midten blot 
drejer om sin egen akse. 
Mange vil have gjort den er¬ 
faring, at ganske få drejnin¬ 
ger er nok til at bringe ternin¬ 
gen så langt væk fra sin ud¬ 


gangsstilling, at det er umu¬ 
ligt at finde tilbage igen - selv 
om verdensrekorden i at ord¬ 
ne professorterningen efter 
sigende ligger omkring et 
halvt inut. 

Frit stillet 

Men vores opgave består ikke 
i at løse terningen, men at la¬ 
ve et program, der kan give et 
billede af terningen på skær¬ 
men - og hvor alle sider kan 
drejes ved hjælp af VIC’s ta¬ 
statur. Det vil være nærlig¬ 
gende at bruge funktionsta¬ 
sterne eller cursor-tasterne, 
men deltagerne i konkurren¬ 
cen er helt frit stillet, når de 
løser opgaven. 

For at alle kan deltage, skal 
programmet kunne køre i en 
VIC uden udvidelser, men af 
hansyn til dommerne, der 
skal bedømme programmer¬ 
ne, kan vi ikke modtage pro¬ 
gramlistninger. Vi må have 
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Den lettere opgave: 

Lav et spil, vi ikke kender! 



forbeholde os retten til at of¬ 
fentliggøre de. programmer, 
der deltager i konkurrencen, 
men hvis man ønsker sit bånd 
eller disketten retur, skal vi 
blot bede om, at der sammen 
med løsningen indsendes en 
frankeret og adresseret ku¬ 
vert til returneringen. 


Opfindsomhed 

Ved bedømmelsen af løsnin¬ 
gerne vil der naturligvis blive 
lagt vægt på en god funktion, 
men dommerne vil også til¬ 
lægge det betydning, om der 
er udvist opfindsomhed i 
programmeringsarbejdet - 
og alt andet lige vil et pro¬ 
gram, der optager ringe plads 
i RAM-hukommelsen blive 
vurderet højere end ét, der 
fylder meget. 

Fristen for at indsende løs¬ 
ningerne har vi fastsat til den 
1. oktober, så der er god tid til 
at sysle med problemet. Re¬ 
sultatet af konkurrencen kan 
så offentliggøres i VI & VIC i 
december. Præmien er som 
allerede nævnt i indledningen 
en maskinkodemonitor 
(VICMON) med komman¬ 
doer, der muliggør lettere 
programmering i maskinko¬ 
de. 


Måske synes du, opgaven 
med at lave en professor-ter¬ 
ning på VIC er for svær. I så 
fald kan du deltage i konkur¬ 
rencen om at vinde en super- 
expander til din VIC. Her er- 
opgaven mere åben, men del¬ 
tagerbetingelserne er de sam¬ 
me, som i terning-konkur¬ 
rencen: Send din løsning på 


kassettebånd eller diskette 
inden den 1. oktober og del¬ 
tag i lodtrækningen om en 
super-expander. Dette udvi¬ 
delsesmodul har tidligere væ¬ 
ret omtalti VI & VIC. 

Opgaven består i at lave et 
spil, der kan køre i en stan¬ 
dard VIC, d.v.s. uden udvi¬ 


delser af nogen art. Deltager¬ 
ne i denne konkurrence er 
helt frit stillet med hensyn til, 
hvilket spil, de vil lave - men 
lad det være sagt straks: Et 
spil, der repræsenterer noget 
nyt, vil blive bedømt højere 
end et spil, som blot er en ny 
version af en af de gamle ken¬ 
dinge. 


Præmier: VICMON, 
super-expander 
og RAM-udvidelse 


Vinderen af konkurrencen 
om den bedste professor-ter¬ 
ning på VIC vil blive belønnet 
med en VICMON maskinko¬ 
demonitor, der gør det lettere 
at programmere i maskinko¬ 
de. 

Vinderen i spil-konkurren¬ 
cen får en super-expander, 
der på en række området gør 
det lettere at programmere. 
Der er også tænkt på at beløn¬ 
ne et godt initiativ. Det er ik¬ 
ke kun et spørgsmål om at 
være bedst. Derfor trækkes 
der lod blandt samtlige ind¬ 
sendte løsninger om et RAM- 
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udvidelsesmodul, der giver 
mere plads til programmer og 
data. 


Betingelserne 
for at deltage 


Programmet skal kunne køre på en standard 
VIC. 

Programmet skal indsendes på bånd eller disket¬ 
te til VI & VIC, Kornager 29, 7100 Vejle. 

Programmet skal være redaktionen i hænde se¬ 
nest den 1. oktober. 

VI & VIC er frit stillet til at gengive programmer, 
der indsendes til konkurrencerne. 

Programmører, der ønsker deres bånd/diskette 
tilbage, skal medsende frankeret og adresseret 
kuvert til returneringen. 
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VIC CHIP’en (2): 

Otte registre og hvad 
man kan bruge dem til 


Vi fortsætter her gennem¬ 
gangen af VIC Chip’en, der 
med sine 16 registre giver VIC 
en række af de egenskaber, 
brugerne i det daglige kan 
glæde sig over. 

I næste nummer af VI & VIC 
afsluttes gennemgangen af 
registrene og anvisningerne 
på, hvordan brugeren kan 
benytte sin viden om deres 
virkemåde. 

I skemaet ses VIC-kredsens 
16 registre med markering af 
samhørigheden mellem de 
enkelte bit. 


F: 8x8 eller 16x8 karakter 
matrix. 

Dette bit, der normalt er 0, 
bestemmer, hvor mange 
prikker, et tegn skal fylde i 
højden. Normalt fylder et 
tegn 8x8 prikker, men kan 
altså her gøres dobbelt så 
højt. I så fald skal tegngene¬ 
ratoren omkodes. Ellers vil 
der blot blive to tegn ovenpå 
hinanden. 

Der skiftes til dobbelt højde 
således: 

POKE 36867, PEEK (36867) 
+ 1 (16x8). 

POKE 36867, PEEK (36867) 
-s-1 , tilbage til 8x8. 


G: Raster værdi 

Som antydet i skemaet kan 
disse positioner indeholde et 
»tilfældigt« tal. Det er num¬ 
meret på den linie på TV- 
skærmen, der arbejdes på i 
dette øjeblik. Værdien æn¬ 
drer sig altså mellem 1 og 625 
hvert sekund. Værdien an¬ 
vendes internt af VIC’en, 
men kan i øvrigt ikke rigtig 
bruges til noget set fra bruge¬ 
rens synspunkt. 


H. -I: Startadresse for karak¬ 
tergenerator og skærm 

H angiver startadressen for 
skærmen (dog kun adresse¬ 
bittene A9-A13). 

I angiver startadressen for 
karaktergeneratoren (dog 
kun adressebittene A10- 
A13). 

Ved at ændre indholdet i dis¬ 
se pladser kan man f.eks. 
flytte karaktergeneratoren 
ned i et RAM område, hvor 
man selv har mulighed for at 
bestemme, hvordan tegnene 
skal se ud. Man kan også blot 
skifte mellem de bestående 
tegn. Det er samme funktion, 
man udløser ved tryk på 
SHIFT og Commodore ta¬ 
sten: 

POKE 36869, 242 små/store 
bogstaver. 

POKE 36869, 240 store bog¬ 
staver/grafik. 

Flytningen af karaktergene¬ 
ratoren vil blive nøje gen¬ 
nemgået i en selvstændig arti¬ 
kel, i et senere VI & VIC. Til 
de meget interesserede kan 
henvises til bogen »VIC RE- 
VEALED« side 120-130. 


J-K: Lyspen 

Denne position er normalt 0. 
Hvis der tilsluttes en lyspen til 
spil-stikket, vil computeren i 
det øjeblik, man placerer lys¬ 
pennen på skærmen, regi¬ 
strere hvor på skærmen den 
er. Dette sker i det øjeblik bil- 
ledrørets elektronstråle pas¬ 
serer lyspennen. I samme 
øjeblik vil skærmens X, Y ko¬ 
ordinater blive indlagt i regi¬ 
strene J og K. Koordinaterne 
strækker fra 0 til 255. 

X = PEEK (36870). 

Y = PEEK (36871). 


Hvis X og Y i ovenstående 
eksempel er omkring 128 er 
lyspennen placeret ca. midt 
på skærmen. Der gøres op¬ 
mærksom på, at værdierne 
ikke er liniære. Det kan der¬ 
for være nødvendigt at fore¬ 
tage omregninger. Det af¬ 
hænger også delvist af den 
benyttede lyspens følsom¬ 
hed. 


Værdierne bibeholdes i regi¬ 
strene selvom lyspennen fjer¬ 
nes, og ændres kun ved på ny 
at placere den på skærmen. 


L-M: Joystik - (positionsan¬ 
givende) 

Disse to registre er i virkelig¬ 
heden analog til digital kon¬ 
vertere. Dvs. at en spænding 
på spilstikkets POT X - POT 
Y -ben automatisk vil blive 
omsat til et tal mellem 0 og 
225. Det kunne bl.a. anven¬ 
des til en positionsgivende 
styrepind. (Se fig.). Spæn¬ 
dingen skal typisk ligge mel¬ 
lem 0 og 2.5 volt, max. 5 V. 


+ 5 V 



X = PEEK (36872) værdi for 
spænding på POT X. 

Y = PEEK (36873) værdi for 
spænding på POT Y. 


LOKATION 

HEX DEC 

STARTVÆRDI 5K-VIC 
BINÆR DEC 

BIT-FUNKTION 

Se tekst 

9000 

36864 

0 

0 

0 

0 

I 

I 

0 

0 

12 

ABBBBBBB 

9001 

36865 

0 

0 

I 

0 

0 

I 

I 

0 

38 

CCCCCCCC 

9002 

36866 

I 

0 

0 

I 

0 

I 

I 

0 

150 

HDDDDDDD 

9003 

36867 

X 

0 

I 

0 

I 

I 

I 

0 

46 el. 176 

GEEEEEEF 

9004 

36868 

X 

X 

X 

X 

X 

X 

X 

X 

X 

GGGGGGGG 

9005 

36869 

I 

I 

I 

I 

0 

0 

0 

0 

240 

HHHH I I I I 

9006 

36870 

0 

0 

0 

0 

0 

0 

0 

0 

0 

J J J J J J J J 

9007 

36871 

0 

0 

0 

0 

0 

0 

0 

0 

0 

KKKKKKKK 

9008 

36872 

I 

I 

I 

I 

I 

I 

I 

I 

255 

LLLLLLLL 

9009 

36873 

I 

I 

I 

I 

I 

I 

I 

I 

255 

MMMMMMMM 

900A 

36874 

0 

0 

0 

0 

0 

0 

0 

0 

0 

NRRRRRRR 

900B 

36875 

0 

0 

0 

0 

0 

0 

0 

0 

0 

OSSSSSSS 

900C 

36876 

0 

0 

0 

0 

0 

0 

0 

0 

0 

PTTTTTTT 

900D 

36877 

0 

0 

0 

0 

0 

0 

0 

0 

0 

QUUUUUUU 

900E 

36878 

0 

0 

0 

0 

0 

0 

0 

0 

0 

WWWWV V V V 

900F 

36879 

0 

0 

0 

I 

I 

0 

I 

I 

27 

XXXXYZZZ 


3 














itsVIC* 


VIC 1540 enkelt diskettestation: 

Kartoteksprogram findes 
allerede på disketten 


Hvis man har lavet et meget 
stort program, eller har brug 
for at gemme meget store da¬ 
tamængder, har man sikkert 
også siddet med sin tilslutte¬ 
de datasette og ønsket, at tin¬ 
gene kunne gå lidt hurtigere. 
Således tager det ca. 5 min. at 
gemme et 20K program på 
bånd. 

Det kan der nu rådes bod på 
med VIC 1540. 

Det er en diskettestation med 
en enkelt diskette. Disketten 
kan udskiftes med et enkelt 
greb, og på hver diskette kan 
der gemmes ca. 170000 tegn. 
Da disketterne ikke er dyrere 
end et alm. godt kassette¬ 
bånd, er det en forholdsvis 


bilig måde at opbygge sit 
programbibliotek på. 

En og anden vil måske spørge 
sig selv, om det er ca. 6900,- 
kr. værd at få sine program¬ 
mer gemt eller indlæst lidt 
hurtigere. Men det er faktisk 
ikke et spørgsmål, der bare 
kan svares ja eller nej til. Di¬ 
sken giver nemlig mange flere 
muligheder end stor hastig¬ 
hed. Ja, faktisk kan man med 
disken og meget lidt RAM, 
lave systemer, der ville være 
helt umulige med båndopta¬ 
ger. Og i den forbindelse 
kommer hastigheden ind 
som et væsentlig plus. Tænk 
f.eks. på et adressesystem 
med 600 kunder. Det ville 


med kassette vare ca. 30 min. 
at finde nr. 600, hvorimod 
det med disk kan gøres på 2-5 
sek. 


Sekventielle data 

Udover hurtig ind- og udlæs¬ 
ning af programmer giver di¬ 
sken flere muligheder for op¬ 
bevaring af data. F.eks. kan 
man sende en masse data ud 
til disken efter hinanden. Det 
kaldes sekventielle data. Di¬ 
sken er selv i stand til at finde 
en tom plads på disketten, 
hvor de modtagne data så 
gemmes i den rækkefølge de 
kommer fra computeren. 

På den måde kan man gemme 


virkelig store datamængder, 
idet disken er istand til at ud¬ 
nytte pladsen fuldt ud. Des¬ 
værre er der også ulemper 
forbundet med dette system. 
Man skal her nemlig for at læ¬ 
se data nr. 600, læse alle de 
599 foregående data først. 
Det kan naturligvis, på trods 
af diskens store hastighed, 
være tidskrævende. Især hvis 
man ønsker de forskellige da¬ 
ta læst ud i baglæns række¬ 
følge. 


664 blokke 

Her kommer den anden data¬ 
opbevaringsmåde ind i bille¬ 
det. Her er systemet baseret 
på det faktum, at disketten 
består af 35 spor. På hvert 
spor er der et antal blokke, 
hvori der kan være 256 bytes 
(tegn) i hver. Da sporene er 
koncentriske (ikke sammen¬ 
hængende), har det inderste 
spor naturligvis mindre om¬ 
kreds end det yderste. Da 
blokkenes størrelse ikke 


READV. 


lø 

3 "• 
X C- 

14 

16 

18 

2ø 

cicL 

24 

26 

2b‘ 

3 ø 

34 

36 

38 

4 ø 

42 

44 

45 

46 

47 

48 

49 
5 ø 


rem 

REM * RANDOM FIL EKSEMPEL * 

REM 

DIMI T C 664): FB=ø = FX=5 : CH=2 : FF'= 1 

pr i nt" nas- 

PRINT" SilNBSrtT DATA BI SK 3" 

PRINT'-; 

PRINT":«« START: JRVK rS'S" 

GETPT: IFP$0"S"THEH26 

OPEN 15 , 8 , 15 ,"Iø": 0 PEN 2 , 8 , 2 ,"#" 

PR I NT " n«_ 1 

PRINT"INBEKSERET KARTOTEK " 

PR HIT"-- 


MUH"GT ■ PRINT" 3 " 


INPUT"« HIV DISK 
IF0T="N"THEN46 
IFOTO"J"THEN36 

PRINT:PRINT" VENT!":FORI=1T0664 

PRINT" »i^T^TiTÆT^««««««««« 

PR IHTI$ <I> : NEXT : G0T050 
0PEN5,8,5,"ø:INDEX, S, R" 

FOR I = 1T0664:1 NPUT#5, ITU) 

PR I NT" .aaaaSilWftWjWÆTiWÆNT! 

NEXTI GLOSES 

PRINT"S«- 


I" I; : ITU) = V" 


imirTUTU) 


68 IF0T="ø"TKENCLOSE15:CL0SE5:CL0SE2 END 
7ø IF0T="1"THEN104 
72 IFØT="3"THEN300 
74 IFOTO " 2" THEN50 
76 G0T0200 
løø REM 

102 REM * OPRETTE MASTER FIL * 

103 REM #####*####*#*#####»##*# 

104 PRINT"."!««-"i 

105 PRINT" OPRETTE MASTER FIL" 

106 PRINT"- 

107 INPUT "Sil HD IV IB NR = ØIMG",F 
109 IF F=øTHEN17ø 
llø INPUT"NAVN 
120 INPUT"ADRESSE 
13ø INPUT"P0STNR. 

132 INPUT"TELEFON 
134 INPUT"BEMrtRK. 

140 00SUB5200 

15ø IT',F)=" 1" 

16ø GOTO104 

17ø 0PEN5,8,5,“Øø INDEX, S, W " 

175 F0RI=1T0664 : PRINT#5, ITU > 1 CURT U 3)1 
i sø pr i ht " mmmmaimwÆH'T \ mur i, itc 

185 NEXT GLOSES 
190 G0T074 


=. Mil": FETU) 
= . 1111 " ;FBT( 2 ) 
= . 1111 ": FET ( 3 ) 
= .mi",FBT(4> 
=. INI" , FBT (. 5 ) 


52 

PRINT" 

JOB OVERSIGT 

200 

rem 

54 

PRINT" 


2 øl 

REM * SLETTE MASTER FIL * 

56 

PRINT 


202 

REM mM**M***$Mm******* 

58 

PRINT" 

1 = 0 F‘RETTE" 

21 

PP7HT""T*T»1 

68 

PRINT" 

2 -SLETTE" 

212 

PRINT" SLETTE MASTER FIL" 

62 

PRINT" 

S-SflSGE " 

214 

PRINT" "PRINT 

64 

PRINT" 

ø=ST 0 P" 

220 

INPUT" Sil HD I VID HR = GI*«G". F 

65 

PRINT 


23 ø 

IFF=øTHEN 26 ø 

66 

INPUT"! 

, 2 , 3 ,ø UMIUOT 

-,-ier 

IFIT 'i F) O " 1 " THEN 220 
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ændrer sig, må der altså være 
flere blokke i det yderste spor 
end i det inderste. Hvis vi nu 
beslutter os for at kalde blok 
1 på spor 1 for blok 1, blok 2 
på spor 1 for blok 2, og fort¬ 
sætter sådan, idet vi skifter 
spor, når vi har været én gang 
rundt, vil vi opdage, at di¬ 
sketten består af 664 blokke. 
Det er så kun et spørgsmål om 
at skrive et program, der kan 
skrive/læse i de enkelte blok¬ 
ke, idet vi så kan bestemme os 
for, at kundenr. 1 er i blok 1, 
og kundenr. 664 er gemt i 
blok 664 osv. 

Et sådan program findes på 
den demonstrationsdiskette 
der følger med disken, og det 
er vist nedenfor. 


Direkte tilgang 

Metoden kaldes »direkte til¬ 
gang« eller RANDOM AC¬ 
CESS og er gennemgået i de¬ 
taljer herefter: 


Linie 16 opretter variablen 1$ 
hvori der gøres plads til 664 
enkelte enheder. Det er et så¬ 
kaldt indeks, hvor vi holder 
styr på om blokken er brugt 
til data eller er fri. 

I linie 28 åbnes der til diskens 
kanal 2, hvorigennem vi vil 
sende data fremover. 


Hvis vi i linie 36 svarer ja til 
spørgsmålet, om det er en ny 
disk, vil vi få vort indeks ud¬ 
fyldt med»/« (linie 44), der 
fortæller, at den tilhørende 
blok er fri. 

I linie 50 kan vi vælge hvilken 
af programmets funktioner, 
vi vil bruge. Lad os prøve 1. 
Så fortsætter vi p.g.a. linie 70 
i linie 104. Her fortæller vi 
først i linie 107 hvilket indi¬ 
vid, vi vil oprette. Individ 0 
eksisterer ikke, og afbryder 
funktionen. I linierne 110- 
134 indtaster vi de data, der 
hører til individet, og hopper 


så til 5200, der er en underru¬ 
tine. Her sendes vi igen videre 
til 5330, hvor vi får lavet indi¬ 
vidnummeret om til det vir¬ 
kelige spor og bloknummer. 

Det skal vi bruge i linie 5240, 
hvor vore indtastede data 
gemmes på disk. De er dog 
først sendt over til disken i li¬ 
nie 5230. Bemærk CHR$(13) 
der er koden for 
»RETURN«. Det bruger vi 
her til at adskille navn, adres¬ 
se osv., så vi kan skille dem 
igen, når vi skal have dem til¬ 
bage. Det eneste, vi skal tæn¬ 
ke på ved indtastning af data 
er, at den samlede mængde 
data pr. individ ikke må over¬ 
stige 256 tegn. Linie 5270 sen¬ 
der os ned i en rutine, der kan 
undersøge, om det gik godt, 
da vi gemte data. Disken kun¬ 
ne jo være defekt. Til sidst 
vendes igen tilbage til 
oprette-delen. Her ændres 
indeksets »/«(fri> til et 
»l«(optaget). Hvis vi er fær¬ 
dige med at oprette og svarer 


0 i 107, så vil vi blive sendt til 
170, der gemmer indekset ud 
på disken. 

Til sidst ender vi igen i 50. 
Ved sletning undersøger vi i 
235 om individet overhove¬ 
det eksisterer. (»/« = fri, 
»1« = optaget). Hvis det gør, 
mærkes det i 240 som frit 
igen. Så gemmes det nye æn¬ 
drede indeks tilbage på disk. 
Ved søgning undersøges ført 
i 322 om individet overhove¬ 
det eksisterer, hvis det gør, 
går vi til 5100. Her sendes vi 
først ned i 5330, hvor den 
egentlige blok beregnes. Der¬ 
næst hentes blokkens ind¬ 
hold ind fra disketten i 5120. 
Efter at have forsikret sig om, 
at alt er OK i 5270, hentes da¬ 
ta ind i computeren i 5160. 
Endelig skrives det på skær¬ 
men i 360-383. 

Ovenstående er et godt eks¬ 
empel på direkte tilgang, lige¬ 
som 170-185 og 46-49 viser 
eksempler på sekventiel til¬ 
gang. 


249 I $ ( F >=V " : PR I NT " Mil NDIVID NR"F» ''SLETTETS' 
25ø G0T0220 


260 0PEN5,9,5, "øø -1NBEX,S, M" 

265 F0RI=1T0664 ■ PRINT#5, I), CHRT< 13) 

270 PR I NT 11 JStørørøtøfcTÆfcTiTA'ENT! Illlll" I, li < I > 

275 NEXT : CL0SE5 
28ø G0T050 

300 rem *********************** 

301 REM * SØG I FIL * 

302 rem *********************** 

310 PRINT"nsW--- 

312 PRINT" SØGNING 

314 PRINT"-" PRINT 

32ø INPUT "KINDI VID NR = ølMC";F 

321 IFF=øTHEN5ø 

322 IFI$ < F)O"1"THEN320 
325 60SUB5100 


360 PRINT"NØVN 
37ø PRINT"ADRESSE 
380 PRINT"P0STNR. 

382 PRINT"TELEFON 

383 PRINT"BEMfiRK. 

385 PRINT"- 


";FB*(1> 
";FB*<2> 
" J FBT < 3) 
", FET (. 4 > 
" ,FET(5> 


II 


390 G0T0320 


5100 REM *********************** 
5105 REM * L*S BLOK FRA DISK * 
5108 REM *********************** 
5110 G0SIJB5330 


5120 PR I NT# 15," U L "CH, FD, FTFS 
513ø PRINT#15, "B-P : ".;CH;FP 
5140 G0SUB5270 


5150 FORF1=1T0FX 


5160 I NF'UT#CH, FBT ( FI) : 

5180 NEXT 
5190 RETURN 

5200 REM *********************** 

5201 REM * SKRIV BLOK TIL DISK * 

5282 REM *********************** 

521ø G0SUB5330 

522ø PRINT#15,"B-P : ";CH;FP 

5230 F0RFI=1T0FX:PRINT#CH,FBTvFI),CHR#< 13), NEXT 
5240 PRIMT#15, "U2 ",CH FD,FT..FS 
5250 G0SUB5278 
5260 RETURN 

5270 REM *********************** 

5275 REM * FEJL-UNDERSUGNING * 

5278 REM *********************** 

5280 INPUT#15,EN,EMT»ET,ES 

5290 I FEN=øTHENRETIJRH 

5300 PRINT"FEJL STATUS : "»EN:EMT,ET,ES 

5310 INPUT"VIDERE ?",VT-IFVT="J"THENRETURN 

5320 STOP 

5322 REM *********************** 

5324 REM »BEREGN SPOR OG SEKTOR* 

5326 REM *********************** 

5338 IFFS358THENF1=@:F2-22■F3=l■G0TQ5378 

534ø IFF>357ANDFS471THENF1=357:F2=20 : F3=19:G0TQ5370 

5350 I FF>471ANDFC5SØTHENF1 =47 L F2= 19 • F3=25 : G0T.T5378 

5360 IFF>58øTHENF1=580■F2=1S F3=31 

537ø FT=INT< <<F-F1)-1)AF2-1) )+F3 

5388 FS=F-F1-<FT-F3)*F2+<FT-F3-1> 

5390 RETURN 


READV. 










tf I & VI C 1 


VIC Revealed giver svarene 
på mange spørgsmål om 
computerens mere intime liv 


Fra Leif Madsen, Vestergade 
48C i Århus har redaktionen 
modtaget en hel række 
spørgsmål: 

Jeg har fornylig erhvervet 
mig en VIC-20, men efter¬ 
hånden som jeg bruger den, 
melder der sig flere og flere 
spørgsmål, så da jeg læste VI 
& VIC, gav jeg mig til at 
skrive ned, når der opstod 
spørgsmål, og jeg har nu fået 
samlet en del sammen, som 
jeg håber, I kan svare på. 

1. Gang på gang læser jeg om 
forskellige nyttige poke or¬ 
dre. Hvorfor skal den slags 
komme lidt efter lidt ad bag¬ 
vejen, hvad med at offentlig¬ 
gøre en liste over, hvad de en¬ 
kelte bytes bruges til, ja helst 
hver enkelt bit? 

2. Hvordan kan det være, at 
når jegskriver PRINT, så ved 
VIC’en, hvad jeg mener? 
Dermed mener jeg, hvordan 
virker basic’en? Til den ende 
vil jeg gerne vide, hvordan 
man undertrykker LIST 
kommandoen, som det næv¬ 
nes i VI & VIC nr. 2? 

3. Og nu vi er ved det indre, vil 
jeg gerne vide noget om ma¬ 
skinsproget, hvordan pro¬ 
grammerer man i det, og 
hvordan går det med den Ma- 
chine Language Monitor, 
som er nævnt i kapitel 1 i 
Programmers Reference 
Guide? 

4. Og med hensyn til den, vil 
jeg gerne vide, hvad det er, 
der står i appendix a og b, spe¬ 
cielt i b står der mange ufor¬ 
ståelige ting. 

5. Jeg har købt et 8k modul, 
men det giver en del proble¬ 
mer, når jeg forsøger at lave 
grafik og vil flytte tegnsættet 
ned i RAM, det ser for mig ik¬ 


ke ud som om der er noget lo¬ 
gik i det, man poker ind i 
36865? 

6. Det samme problem mel¬ 
der sig ved programmer, der 
er skrevet til den uudvidede 
VIC, men jeg fik den idé, at 
man kunne »bilde VIC’en 
ind«, at man ikke havde udvi¬ 
det, men hvis det kan lade sig 
gøre, vil jeg gerne vide hvor¬ 
dan. 

7. Sommetider, når jeg loa- 
der fra kassetten, kommer 
der en mærkelig linie ind, og 
når jeg så forsøger at fjerne 
den, sker der mærkelige ting 
med skærmen, hvorefter ma¬ 
skinen er helt død. Det, jeg 
gerne vil vide er, hvordan kan 
man få den klar igen uden at 
skulle slukke, for det kan da 
ikke være rigtigt, at man også 
skal afbryde for strømmen 
for at resette VIC’en? Det 
kan jo ikke være alle chips, 
det er galt med. 

8. Hvad bruges USR(X) og 
SYS til? Jeg synes ikke, der 
står noget fyldestgørende i 
nogen af de bøger, jeg har 
læst. 


Svar: 

Det er ikke muligt at svare li¬ 
ge så kort og klart, som der 
kan spørges. Først og frem¬ 
mest fordi en besvarelse af de 
fleste af Leif Madsens 
spørgsmål vil kræve en grun¬ 
dig gennemgang af store em¬ 
ner, først og fremmest om¬ 
kring maskinsprog. Emner¬ 
ne vil blive taget op i senere 
artikler her i bladet, men lad 
os tage spørgsmålene ét for 
ét: 

ad 1) At mulighederne for at 
benytte POKE og PEEK 
kommer lidt efter lidt, hæn¬ 


ger sammen med hele ideen 
med at lave et blad, der ud¬ 
kommer jævnligt med infor¬ 
mationer, som læserne kan 
suge til sig. Se f.eks. artikler¬ 
ne i dette nummer (og i forri¬ 
ge og næste nummer), hvor 
VIC Chip’en gennemgås. 
Her er en række eksempler på 
anvendelse af POKE og 
PEEK. 

Men det spiller også en rolle, 
at det faktisk ikke er så enkelt 
blot at lave en liste over alle 
muligheder. Nogle af funk¬ 
tionerne vil i visse situationer 
ytre sig på en anden måde end 
forudset. Der er næppe no¬ 
gen programmør, som i dag 
tør påstå, at han har fuldt 
overblik over alle mulighe¬ 
derne og alle faldgruber - og 
det er jo egentlig ganske fas¬ 
cinerende i sig selv. 

Hvis vi skal give et konkret 
råd, må det blive at investere 
de ca. 200 kr., bogen VIC Re¬ 
vealed koster. Den er skrevet 
af Nick Hampshire, og VIC- 
forhandlerne har den eller 
kan skaffe den. 

»VIC klædt af til skindet« 
kunne være den danske titel, 
hvis nogen ville udsende en 
dansk oversættelse, og sandt 
er det, at den giver svar på 
mange spørgsmål om VIC’s 
privatliv. 

ad 2, 3 og 8) Disse spørgsmål 
drejer sig om maskinsprog, 
og det er et emne, som senere 
vil blive behandlet her i bla¬ 
det. Maskinsprogsmonito¬ 
ren, der også spørges til. er på 
markedet - og omtales iøv- 
rigt i dette nummer af VI & 
VIC. 

ad 4) Appendix A og B i Pro¬ 
grammers Reference Guide 
drejer sig om kerne-rutiner 
og interface - og også her 
drejer det sig om ting, der 



foregår på maskinsprogsni¬ 
veau. Også her må rådet være 
at kigge i Nick Hampshires 
bog. 

ad 5 og 6) Det er rigtigt, at det, 
man poker ind i 36865 ikke 
umiddelbart afslører sin lo¬ 
gik for brugeren, men det be¬ 
tyder ikke, at det er det rene 
volapyk. Det hænger sam¬ 
men med, at logikken er tem¬ 
melig komplex, og det vil 
næppe være muligt at »bilde 
VIC’en ind«, at hukommel¬ 
sen ikke er udvidet. De for¬ 
skellige pointere sættes i for¬ 
bindelse med opstarten i en 
initialiseringsprocedure, 
som man nok skal være me¬ 
get optimistisk for at tro, 
man kan ændre på uden at 
noget andet går galt. 
ad7) Problemer med mærke¬ 
lige linier i forbindelse med 
LOAD er desværre ikke nyt. 
Problemerne hænger sam¬ 
men med fejl, der ikke altid 
detekteres og giver anledning 
til en regulær fejlmelding på 
skærmen (? LOAD ER¬ 
ROR). Det, der sker er, at der 
mangler links, og dermed kø¬ 
rer maskinen »i skoven«. 
Løsningen på problemer er at 
undgå fejl. Brug kun gode 
bånd. Verify programmer, 
når de lagres på bånd og gem 
altid flere kopier af program¬ 
met. 

Selv om det kan virke urime¬ 
ligt, at man skal slukke for sin 
VIC og tænde den igen, når 
man har mistet forbindelsen 
med den, hænger bl.a. sam¬ 
men med den initialiserings- 
procedure, som finder sted 
ved start. Det er ikke sikkert, 
det er nok at resette en enkelt 
del - og det må i hvert fald fra¬ 
rådes at gøre indgreb i maski¬ 
nen for at kunne gøre noget 
sådant. 
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Alle gode gange tre: 

Udmærkede værktøjer til VIC-20 


Når man har leget med ekstra 
lager og en håndfuld spil, 
melder lysten til at program¬ 
mere »rigtigt« sig ganske 
hurtigt. Og så er Program¬ 
mers Aid, SuperExpanderog 
VICMON tre gode redskaber 
at have ved hånden. 
Programmers Aid er en for¬ 
skønnet version af det, der 
tidligere hed et toolkit, en 
»redskabstaske« med nyttige 
hjælpekommandoer. 

Den monteres i udvidelses¬ 
stikket bag i VIC-20 ganske 
som et spil og RAM-pakker, 
og hvis man har et modermo¬ 
dul, man man ganske enkelt 
lade den blive siddende deri. 


SYS-rutine 

Programmers AID kaldes til 
live ved hjælp af en lille sub¬ 
rutine SYS28681 og kvitterer 
ved at skrive ‘***PRO- 
GRAMMER’S AID***‘ 
henover TV-skærmen. 

Når man er kommet så vidt, 
har man hele 30 ekstra funk¬ 
tioner til sin rådighed, og her¬ 
af kan de fleste kaldes ved 
hjælp af funktionstasterne 
på VIC-20. 

Blandt funktionerne kan 
nævnes den gamle kending 
RENUMBER, som automa¬ 
tisk omnummererer et pro¬ 
grams linienumre og 
GOSUB/GOTO-sætninger. 
Men også alle betingede hop¬ 
sætninger omnummereres 
korrekt (‘IF sov. osv. THEN 
GOTO 45 ‘). Det står der intet 
om i den engelske brugsvej¬ 
ledning (som nu er oversat til 
dansk), men vi har undersøgt 
Programmers Aid temmelig 
grundigt, og den omnumme¬ 
rerer faktisk alt, hvad der 
vedrører linienumre. 

En anden af de mange gode 
funktioner er TRACE, hvor¬ 
med man kan følge en pro¬ 
gramkørsel linie for linie. 
Nummeret på de aktuelle li¬ 
nier fremkommer i øverste 


højre hjørne af TV-skærmen 
i et lille »vindue«, mens pro¬ 
grammet afvikler helt nor¬ 
malt (men en anelse langsom¬ 
mere) i resten af TV- 
skærmen. 

En anden funktion, STEP, 
virker på helt samme måde - 
med den modifikation, at 
programmet standses efter 
hver linie, og nummeret på 
den efterfølgende linie vises. 


Kontrol af hop 

STEP er meget praktisk, hvis 
man vil kontrollere, om et 
program hopper de rigtige 
steder hen, f.eks. ved betin¬ 
gede hop-sætninger. 
Programmers AID er blandt 
andet blevet brugt til at udar¬ 
bejde det tekstbehandlings¬ 
program til VIC-20, hvorpå 
denne tekst er skrevet. 

I modsætning til Program¬ 
mers Ais er Super Expande- 
ren klar til brug, så snart man 
har sat den i sin VIC-20 og har 
tændt for strømmen. Super 
Expanderen giver mange mu¬ 
ligheder for grafik (højopløs¬ 
ning og multicolour) med nye 
farvemuligheder, og den 
indeholder en lang række 
lyd-kommandoer, så man 
kan lave rigtig musik på VIC- 
20. Endelig rummer Super 
Expanderen 3 Kbytes ekstra 
lager - blandt andet fordi mu¬ 
sikdata fylder godt op. 

Også Super Expanderen gør 
ivrigt brug af funktionsta¬ 
sterne, som brugeren enten 
selv kan programmere, eller 
som man kan bruge med de 
funktioner, som Super Ex¬ 
panderen automatisk lægger 
ud på funktionstasterne. 

Når Super Expanderen star¬ 
tes, er der automatisk tillagt 
funktionstasterne otte grafi¬ 
ske kommandoer. DRAW, 
for eksempel, vil tegne en li¬ 


nie mellem to punkter på 
skærmen, vandret eller lod¬ 
ret eller på skrå, og CIRCLE 
vil tegne en cirkel, når man 
samtidig opgiver centrums 
placering og værdier for cirk¬ 
lens højde. Her støder vi på 
en af de små detaljer, man 
skal være opmærksom på. 
Da TV-skærmbilledet med 
VIC-20 er ca. 70% bredere, 
end det er højt, må manspeci¬ 
ficere denne forskel over for 
datamaten - det vil sige, at 
man skal gange cirklens bred- 
demed0,7 forat findedet ret¬ 
te tal for cirkelhøjden. 

En anden sjov kommando er 
PAINT, som udfylder et 
areal på skærmen med en far¬ 
ve, brugeren selv kan vælge. 
Arealet kan være en cirkel, et 
rektangel eller en anden fi¬ 
gur. Det eneste lille problem 
her er, at man må sikre sig, at 
figuren (som jo kan være re¬ 
sultat af en række vinkelbe¬ 
regninger) må være lukket 
helt - ellers vil farven »flyde 
ud« af figuren og til sidst 
dække hele TV-skærmen . . . 
for øvrigt en sjov effekt, som 
med held kan bruges i deko¬ 
rative programmer. 


Lækkerbisken 

VICMON er en ren lækkerbi¬ 
sken for avancerede amatør- 
programmører, for hvem 
maskinsprogkode lige er sa¬ 
gen. 

Også VICMON kaldes med 
en SYS (SYS 24576). 
VICMON indeholder f.eks. 
en kraftig 6502 assembler 

monitor med assemblering 
og disassemblering, hexade¬ 
cimal lagerudskrivning), 
flytning af hukommelse, ind¬ 
sætning af stoppunkter i et 
program og en effektiv tek¬ 
nik til fejlfinding i maskin¬ 
sprogsprogrammer . 


Hertil kommer en stribe 
kommandoer for f.eks. op¬ 
søgning af en bestemt tegn¬ 
følge i datamatens lager, for 
trinvis programkørsel og 
meget mere. 

Et program, der er skrevet i 
maskinsprog, afvikler yderst 
hurtigt. Det er meget effek¬ 
tivt - og så fylder det ikke 
meget i forhold til et basic- 
program, som kan det sam¬ 
me. Det er faktisk reglen, at 
maskinprogrammer fylder 
en femtedel og kører ti gange 
hurtigere ned det tilsvarende 
basic-program. 


Effektive 

Fælles for de tre værktøjs¬ 
pakker er, at de er robuste og 
effektive. De moduler, som 
VI & VIC har testet, virkede 
helt perfekt (hvad vi også 
ventede) - og det viste sig, at 
alle tre moduler var en stor 
lettelse i det daglige. 

Har man et motherboard 
(f.eks. Arfon’s), kan man ha¬ 
ve flere programmoduler til¬ 
koblet VIC-20. Men netop 
Programmer Aid, VICMON 
og Super Expander er indret¬ 
tet således, at de udelukker 
hinanden mere eller mindre, 
når de bruges. 

Det skyldes, at modulerne 
hver lægger beslag på noget 
af det frie arbejdslager 
(RAM-lager), som man har 
tilkoblet. Dette lagerområde 
bruges til nogle variabler og 
lignende, som modulerne ik- 
kek kan undvære - og det be¬ 
tyder, at de tre modulpakker 
kommer »op at slås« om la¬ 
gerpladsen, hvis man forsø¬ 
ger helt ukritisk at anvende 
dem på samme tid. 
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_ m & vie 

¥1C klub med et par 
hundrede medlemmer 
formidler udveksling 
af VIC-informationer 


Det er jyder, der importerer 
VIC-20. Og det er jyder, der 
er først på færde med en 
landsdækkende brugerorga¬ 
nisation. 

VIC Club Denmark er den 
største mikrodatamat-bru¬ 
gerforening i landet med op 
mod 200 medlemmer, og den 
er samtidig den første egentli¬ 
ge brugerklub med eget med¬ 
lemsblad og mange interes¬ 
sante aktiviteter. 

Initiativet til klubben er taget 
af bogtrykker Christian Eds¬ 
lev fra Århus i samarbejde 
med lollikkerne Helmuth 
Aspernig (der oprindelig er 
østriger) og Bent Andreas- 
sen. Helmuth Aspernig teg¬ 
ner i dag klubbens tekniske 
side, mens Christian Edslev 
står for den mere administra¬ 
tive. 

Christian Edslev: - Med op 
mod to hundrede medlem¬ 
mer synes vi da selv, vi har 
helt godt fat om de danske 
VIC-brugere. Desto flere vi 
er, desto mere kan vi natur¬ 
ligvis tilbyde vore medlem¬ 
mer, for derved kan vi opnå 
gode rabatter ved f.eks. køb 
af udenlandske computer¬ 
blade og tidsskrifter. 

Et forum 

- Vil det sige, at VIC Club 
Denmark i første række sat¬ 
ser på formidling af blade el¬ 
ler tidsskrifter? 

-Nej, svarer Christian Eds¬ 
lev. Vi bruger i første række 
klubben som et forum for ud¬ 
veksling af f.eks. program¬ 
mer eller anden nyttig infor¬ 
mation. Når alt kommer til 
alt er programmering jo en 
»énmandssituation«. Der er 
ikke megen mening i at sætte 
sig flere sammen og så for¬ 
søge at programmere. Dertil 


må man nok koncentrere sig 
lidt mere. Men derimod er 
der utallige små vink og råd, 
der kan komme os alle til go¬ 
de. 

Det må da i hvert fald være 
smartere, end at vi hver især 
må sidde og bogstaveligt talt 
opfinde den dybe tallerken 
igen og igen - med andre ord 
hver især finde ud af 
VIC-20’s mange finesser og 
detaljer. 

Helmuth Aspernig føjer til: 


ROM-brænder 

- Der er da heller intet i vejen 
for, at vi i klubben f.eks. kun¬ 
ne anskaffe en ROM-bræn¬ 
der og distribuere klubmed¬ 
lemmers gode programmer i 
ROM-form. Det ville for det 
enkelte klubmedlem blive en 
meget billig og nem løsning. 
Endelige har vi i klubben vir¬ 
kelig kapacitet til at holde os 
orienteret i de udenlandske 
tidsskrifter og hente de ting 
ud, som er relevante for de 
danske VIC-brugere. På den 
måde kan vi yde en god servi¬ 
ce for VIC-brugerne her¬ 
hjemme. 

Helmuth Aspernig er oprin¬ 
delig værktøjsmager, et godt 
udgangspunkt for forståelse 
af VIC-20 og dens tilbehør. 
Men samtidig dækker Hel¬ 
muth Aspernig det tyske om¬ 
råde, hvor det vrimler med 
gode programmer og tilbe¬ 
hør til VIC-20. 


Frihed 

- Vi har den frihed i forhold til 
Commodore, at vi kan købe 
et parti tilbehør og sælge det 
til vore medlemmer uden de 
meget store forpligtelser i 
form af kvalitetstest og af¬ 


prøvning, som Commodore 
har. Vi kan med andre ord 
lettere end Commodore ka¬ 
ste et eller andet ud og sige til 
vore medlemmer »her er en 
dims. Den skulle kunne det 
og det. Den er billig. Prøv den 
og lad os høre, hvad I 
mener«. 

Vore medlemmer er jo både 
programmere- og eksperi- 
menterelystne. Men samtidig 
er der ikke mange af dem, der 
har de helt store formuer at 
spendere i udstyr, så de fleste 
er nok interesserede i billigt 
tilbehør. 

Christian Edslev supplerer: 

- Vi har under alvorlig over¬ 
vejelse at forsøge at frem¬ 
skaffe noget litteratur på 
dansk om VlC-programme- 
ring. Dels har vi jo et trykkeri 
og dels føler vi, at der er be¬ 
hov for den slags - også som 
en støtte til de lokale klubber. 


Børn og unge 

- Betyder der, at I ikke vil lave 
egentlige mødearrangemen¬ 
ter? 

- Ikke i første omgang. Men 
senere vil vi spørge vore med¬ 
lemmer, hvad de mener her¬ 
om. Man må huske, at vore 
medlemmer overvejende er 
unge og børn, som har fået en 
VIC i jule- eller konfirma¬ 
tionsgave. Der er mange gode 
programmører blandt dem - 
men der er ikke ret mange vel¬ 
beslåede. 

Det betyder, at vi ikke kan 
tromme dem sammen, f.eks. 
på Nyborg Strand eller et an¬ 
det stort center. Vi kan heller 
ikke forvente, at de unge skal 
rejse land og rige rundt med 


deres VIC-20 og et farve¬ 
fjernsyn. 

Så det, siger Christian Eds¬ 
lev, bliver ikke nemt at arran¬ 
gere. Men vi har overvejet at 
tilbyde en eller anden form 
for undervisning i hold, hvis 
vi kan låne en halv snes 
VIC’er og en håndfuld S/H- 
fjernsyn. Så kunne man sag¬ 
tens tænke sig, at vi kunne 
samle vore medlemmer lidt 
mere »fysisk«. 

- Fordelen ved os, siger Hel¬ 
muth Aspernig, er at vi sam¬ 
ler mange brugere under én 
hat, eller paraply om man vil. 
Derved bliver vi en slags cen¬ 
trum for viden om VIC. Det 
alene er formål nok for VIC 
Club Denmark. Hvad vi der¬ 
efter kan finde du af - ja, det 
er jo bare en ekstra fordel. 
Men som klub, der admini¬ 
streres af bare tre mennesker* 
skal vi også passe på, at vi ik¬ 
ke påtager os mere, end vi til 
enhver tid kan overkomme. 
Hellere love lidt mindre og så 
have tilfredse medlemmer. 


WATT 

Kender man brugen af 
WAIT, kan man få meget 
glæde af denne komman¬ 
do. 

Den virker på den måde, at 
programmet standser, ind¬ 
til bestemte registre har 
ændret sig. Det siger næ¬ 
sten sig selv, at det må dreje 
sig om påvirkninger ude¬ 
fra, da computeren jo selv 
står stille. 

En meget nærliggende an¬ 
vendelse er kontrollen af, 
om der er trykket eller ikke 
try kker på båndoptageren. 
Hvis programmet skal 
standse, indtil der trykkes 
på båndoptageren, kan 
man bruge denne linie: 
WAIT 37151,64,126 
Drejer det sig modsat om at 
standse, indtil der er tryk¬ 
ket STOP på båndoptage¬ 
ren, kan man bruge linien: 
WAIT 37151,126,62 


8 





_ m s wifr 

Den ustyrlige styrepind 


Den billige joystick med de 
mange muligheder er et sjovt 
tilbehør. 

Commodores joystick til 
VIC-20 er en lille, simpel ind¬ 
retning. Ikke desto mindre er 
den ganske praktisk til man¬ 
ge formål, og i forbindelse 
med næsten alle spilmoduler 
kan en joystick give spillet 
langt mere fart og intensitet, 
end spil via tastaturet. 
Joystick’en er internt opbyg¬ 
get med et kraftigt fjedrende 
led, fire små og simple tryk¬ 
kontakter og en femte, der 
fungerer i forbindelse med en 
rød »affyringsknap«. 


vies tor 



så videre. Presser man styre¬ 
pinden skråt til venstre og 
fremad (»nordvest«), påvir¬ 
kes både den nordlige og den 
vestlige kontakt. 


ligger på decimalt 37136- 
37151 og 37152-37167. 

Af de mange dele i disse kred¬ 
se er det specielt en af output¬ 
portene i 6522 PIA nummer 1 
og nogle registre i 6511 PIA 
nummer 2, som varetager alle 
joystick-funktioner, med an¬ 
dre ord gør computeren op¬ 
mærksom på det, der sker 
med joystick’en. 

Test-program 

Nedenstående lille program¬ 
stump er egnet til at illustrere, 
hvad der egentlig foregår, 
når en joystick er kobler til 


Joystick’en bruger med an¬ 
dre ord en speciel teknik, idet 
systemet med kontakter in¬ 
debærer, at VIC-20 oplever 
joystick’ens bevægelser som 
ændringer i nogle interne, 
elektriske spændinger (i 
modsætning til at PEEK’e 
cursorens position - det kan 
eksperimenterelystne i øvrigt 
gøre med SYS 65520 og lidt 
manipulation med adresser¬ 
ne 781-783). 

Det lille program ved denne 
artikel viser, hvordan vær¬ 
dien 0 ændres til 1 udfor hver 
anført kompasretning, hver 
gang styrepinden presses i 
den givne kompasretning, og 
programmet rummer en til¬ 
svarende angivelse af »affy¬ 
ringsknappens« virkemåde. 


1 0 Hn=37154 ' P1 =3715 i '■ P2=37 i 52 
20 PRIHT"DW H ø S V RK" PR I HT 
30 GO S UB 1 øø : PRINT" H" .J3; Jø; J1,J2FB 
40 G0T030 

1 øø FOKEDD .■ 127 : P=F'EEK < P2 > AND 128 
110 Jø=- < P=ø > - P0KEDH, 255 ' P=F'EEK < P1 > 

120 Jl=-< < F'RNBS > =ø■ J2=-< PAND 1 6 "> =ø ■ J3“-< <PflND4)*ø> : FB=-C <CPftND32>=0> : RETURN 
RERIiV- 


En eller to 

De fire små kontakter, som 
påvirkes, når man betjener 
selve styrepinden, har enten 
betydning en ad gangen eller 
parvis. Forestiller man sig 
kontakterne placeret i »kom¬ 
pasretningerne«, vil den 
»nordlige« kontakt med an¬ 
dre ord betyde »fremad«, 
den »vestlige« til venstre og 


Gennem et kabel er joy¬ 
stick’en forbundet til VIC- 
20’s tilbehørsstik, som er an¬ 
bragt ved siden af afbryder¬ 
knappen på siden af VIC-20. 
Via dette stik kobler joy¬ 
stick’en til to af VIC-20’s in¬ 
terne, elektroniske kredse, 
nemlig »Peripheral Interface 
Adapter« (PIA) 6522, som i 
adressemæssig henseende 


VIC-20. Man kan med fordel 
studere programmet og se, 
hvilke registre, der er i brug. 
For oversigtens skyld: Adres¬ 
sen 37154 er et data-retnings¬ 
register i PIA nr. 2, 37151 er 
en lille kontakt i PIA num¬ 
mer 1, mens 37152 er et out¬ 
put register i PIA nummer 2, 
det såkaldte PORT B-out- 
put. 


Joystick’en virker på forskel¬ 
lig måde i forbindelse med de 
forskellige spil. Men ved at 
bruge de adresser og den tek¬ 
nik, er der angivet i forbin¬ 
delse med denne artikel, kan 
man indbygge f.eks. cursor¬ 
styring i mange forskellige 
former for programmer, så¬ 
vel spil som mere seriøse op¬ 
gaver. 


Sikring af programmer 
et brændende spørgsmål 


Mange VIC-brugere interes¬ 
serer sig for sikring af pro¬ 
grammer, d.v.s. metoder, 
der gør det umuligt at LIST 
og SAVE programmerne 
medmindre, man er i besid¬ 
delse af en særlig kode. 

Vi har tidligere skrevet, at det 
ikke er muligt at beskytte sine 
programmer imod at blive 


kopieret, og det har fået Jep¬ 
pe Langgaard til at bede om 
anvisninger på, hvordan 
programmer, der er købt på 
bånd, listes. Han skriver: 
Hvorfor kan man ikke liste 
de programmer, som man 
køber på bånd (f.eks. Missile 
Command) ud på printeren 
eller TV-skærmen? 


Jeg ved, at I skrev i nr. 2, at 
man ikke kunne beskytte sine 
programmer. Der må jo være 
en form for en lås i selve pro¬ 
grammet. 

Jeg vil gerne vide, hvordan 
jeg kan få programmet skre¬ 
vet ud på skærmen eller prin¬ 
teren. Med venlig hilsen 
Jeppe Langgaard 


Det er rigtigt, hvad vi skrev 
om, at man ikke kan beskytte 
sine programmer mod kopie¬ 
ring - og det er også rigtigt, at 
man ikke kan kopiere visse 
købte programmer. 

Når begge dele kan være kor¬ 
rekt skyldes det, at program¬ 
merne ganske rigtigt er forsy¬ 
net med en form for en lås - 
men skrappe programmører 
vil være i stand til at dirke den 
op. 






Vi s VIC* 


Skak, Programmer’s Aid og 
VICMON på ønskesedlen 



Mads Holst Knudsen er ikke i tvivl om, hvordan fremtiden skal forme 
sig: Det skal være noget med data-behandling, og det er VIC, der har 
givet ham mulighederforat beskæftige sig med computer-teknologi. 


(Foto: Ole Joker Bjerre). 


Siden han fik sin VIC-20 den 
7. januar i år, har Mads Holst 
Knudsen i Vorgod ved Vide¬ 
bæk været VIC-entusiast i en 
grad, så han allerede ser frem 
til en karriere som edb-med- 
arbejder i en eller anden sam¬ 
menhæng. 

Mads er 13 år, og det er svært 
at forudse, hvordan edb- 
branchen ser ud, når Mads er 
nået vejen gennem gymnasie 
og universitet. Men interes¬ 
sen er der, og det seneste 
program fra Mads’ hånd, et 
regneprogram, tegner så 
godt, at Logic Design i Her¬ 
ning har under overvejelse at 
forhandle det for Mads. 


Inspiration 

- Jeg har for nylig fået nogle 
bøger med mig hjem fra en 
englandstur, og da det går 
jævnt godt med det engelske, 
har jeg naturligvis fåt en hel 
del gode ideer. Men jeg er he¬ 
le tiden på udkig efter littera¬ 
tur om programmering, og 
på den måde får jeg hele tiden 
fundet flere og bedre mulig¬ 
heder for at udnytte min 
VIC-20, siger Mads Holst 
Knudsen. 

-Jeg har kassetteoptager og 
et antal spilmoduler (Alien, 
Rat Race, Avenger og Jupiter 
Lander), og nu ønsker jeg 
mig ganske alvorligt det nye 
skakmodul, der er kommet 
til VIC. Det er spændende at 
fordrive tiden med spil, men 
samtidig har jeg været heldig 
at få fat i en 24K pakke fra 
Logic Design - i øvrigt deres 
allerførste prototype - til en 
rimelig pris, så jeg synes selv, 
jeg er nogenlunde godt kø¬ 
rende med hensyn til at lave 
programmer. 

Mads Holst Knudsens regne¬ 
program kan arbejde med 
umiddelbar visning af facit, 
men kan også skjule facit i 
regneopgaverne, så de først 
til slut kan kaldes frem. 


Tekstbehandling 

- Derved bliver det let at bru¬ 
ge programmet som en egent¬ 
lig opgave-»bog«, og en tid¬ 
lig version af mit program 
har min lillebror haft en del 
fornøjelse af, fortæller Mads 
Holst Knudsen. 

Men programmering er jo 
også andre ting. Jeg kunne 
godt tænke mig at strikke et 
tekstbehandlingsprogram - 
Jeg går og øver mig en smule i 
at håndtere strengvariabler, 
og med 27K er der jo plads 
nok at boltre sig på. 

Mads har en i og for sig beske¬ 
den ønskeseddel. 

- Skakmodulet, Program¬ 
mer’s Aid og måske VIC¬ 
MON, når jeg bliver lidt mere 
dygtig til at holde rede på ma¬ 
skinsprogskoderne. Printer 
og diskettedrev ligger alt for 
langt ude i fremtiden, mener 
Mads Holst Knudsen, begge 
dele er meget for dyre. 


Flere joysticks 

Den aktuelle opgave, som 
Mads har givet sig selv, består 
i at få styr på VIC’s joystick, 
og han har i den forbindelse 
spurgt VI & VIC, om det er 
muligt at koble mere end én 
joystick på. Og ifølge VIC 
REVEALED kan man ved at 
manipulere med bits 2-5 i 
6522 PIA nr. 1 koble op til 4 
joysticks på VIC-20. Men der 
findes ikke herhjemme det 
kabel, man skal bruge til at 
koble flere joysticks sam¬ 
men, og man skal nok lade 
være med at lodde sin VIC- 
20. Kablet findes imidlertid i 
England (Stack har det), og 
det vil formentlig være mu¬ 
ligt at skaffe det hjem ved at 
sende en check på beløbet til 
det engelske firma. 

Mads skal starte i Herning ef¬ 
ter 7 år på skolen i Vorgod, og 
derefter regner han med, at 


det bliver en studentereksa¬ 
men fra gymnasiet i Herning. 
- Og jeg er sikker på, at det til 
den tid er en fordel at have 
nogle års erfaring med bits og 


En af de meget behagelige 
ting ved programmering på 
VIC er den omhyggelige må¬ 
de, man bliver gjort bekendt 
med sine egne fejltagelser. 
Gang på gang bliver man 
konfronteret med en besked 
om, at der er SYNTAX ER¬ 
ROR i den og den linie. Så er 
det let at LISTe den pågæl¬ 
dende linie og rette fejlen. 

I brugervejledningen findes 
en fortegnelse over den vifte 
af fejlmeddelelser, der kan 
komme fra VIC, men en bru- 


bytes, specielt hvis man, som 
jeg, satser på en fremtid in¬ 
den for branchen, slutter 
Mads Holst Knudsen. 


ger er blevet præsenteret for 
fejlmeddelelsen FILE DA¬ 
TA ERROR, og den findes 
ikke i brugervejledningen -og 
et opslag i Programmers Re¬ 
ference Guide hjælper heller 
ikke. 

Fejlmeldingen optræder i 
forbindelse med anvendelsen 
af FILE, og den hidrører 
sandsynligvis fra læsning af 
data, hvor der forventes en 
numerisk variabel, men vari¬ 
ablen viser sig at være en 
streng-variabel. 


FILEDATA 

ERROR 
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VIC 


Kryptoprogrammering giver 
sikring af programmer, 
man ril beholde for sig selv 


Som omtalt både i dette og i 
tidligere numre af VI & VIC 
er det ikke så ligetil at beskyt¬ 
te sine programmer mod ko¬ 
piering. Men fra en læser har 
vi modtaget et fikst lille pro¬ 
gram, som beskytter ethvert 
program mod, at andre end 
én selv benytter det. Vor 
hjemmelsmand skriver: 


Kære VI & VIC 

Jeg har lavet en program¬ 
stump til alle barnlige prog¬ 
rammører, som ønsker at sik¬ 
re, at deres programmer ikke 
bliver kopieret og brugt af 
andre. 

Brugervejledning: 

Det program, som skal sik¬ 
res, kalder vi A. 

Den kodestump, som jeg har 
lavet, kalder vi KODNING. 
Programmet KODNING 
skal ligge foran programmet 
A i maskinen (du kan ikke 
umiddelbart ændre linie¬ 
numre). 

Når program A er færdigt og 
skal sikres, opstartes pro¬ 
gram KODNING ved hjælp 
af RUN 30. Du bliver nu bedt 
om et reelt tal. Dette tal skal 
fungere som adgangsnøgle til 
program A, så det er meget 
vigtigt, at du husker dette tal. 
Når program KODNING er 
færdig, vil programteksten 
for program A være forvand¬ 
let til ukendelighed, og det vil 
være umuligt at køre pro¬ 
gram A, men stadig muligt at 
køre program KODNING. 

Du gemmer nu den ubrugeli¬ 
ge kopi ved hjælp af SAVE. 
Nu vil ingen, undtagen dig, 
kunne få noget ud af det, som 
står på båndet. 

Når du skal bruge program¬ 
met, henter du det ind i ma¬ 
skinen ved hjælp at LOAD. 


Kører program KODNING 
ved hjælp af RUN 30 med det 
tal, som du selvfølgelig hu¬ 
sker, og så vil du igen have 
den oprindelige kopi af pro¬ 
gram A i maskinen. 


Teknisk forklaring af 
program KODNING 

10 : Denne linie er 

MEGET vigtig. 

Der skal være et 
blanktegn mellem 
REM og + (plus). 
Dette tegn bruges i 
program 
KODNING til at 
afgøre, om der skal 
kodes eller deko¬ 
des. 

20 : Hop til program A. 

30- 40: Sæt tilfældigheds¬ 
funktionen (efter 
F). 

50- 60: Sæt FORTEGN (F) 
og ændre tegnet i 
linie 10. 

70 : X er en lagerposi¬ 

tion. Hvis X er 
starten på en sæt¬ 
ning, vil FNN(X) 
være starten på næ¬ 
ste sætning. 

FNN(X + 2) vil væ¬ 
re linienummeret 
på linien. 

80 : X MOD 256. 

90-100: Finder linie 200 i 
programmet. 

110-112: Finder en ny linie i 
lageret. 

130 : PO sættes til første 

tegn i linien. 

140-170: Finder næste tegn, 
eksklusiv linieskift. 

180 : Placerer et nyt tegn 

i lagerposition PO, 
afhængigt af tegnet 
og tilfældigheds¬ 
funktionen. 

190 : Næste tegn. 

200 : Stopklods for søg¬ 

ningen i linie 100. 


lø REM + 

2ø GOTO1000 
30 INPUT F 

4ø F=RND(-HBS(F)-ø. 11) 

5ø F=F'EEK < 41 @3) -44 
60 P0KE4103,44-F 

7ø DEF FNH < X ) =F'EEK C X) +256*PEEK C X+ i > 

Sø DEF FNM(X>=X-256*INT(X/256> 

90 10=4097 

løø IF FNH<Iø+2>0290THEH Iø=FNN(Iø> ; GOTO løø 
llø Iø=FNNUø> 

120 11=FNN(Iø > 

13ø Pø=Iø+4 
14ø F'ø=Pø+1 

150 IF Pø<I1-2 GOTO ISø 
160 IF F'EEKXI1>=ø THEN STOP 
170 GOTO llø 

1 Sø P0KE F'ø, FNM <PEEK (PØ>+F#I NT ■: 10000#RND (i > > } 

190 GOTO 14ø 
2øø END 

løøø PRINT"***HER STARTER DET SIKREDE PROGRAM*** 


REflDY. 

Linieformatet i lageret 



0 al a2 bl b2dl d2d3. dn 0 bx by 



al + 256*a2 udpeger starten 
på næste linie II. 
bl 4-256*b2 er liniens num¬ 
mer, f.eks. 200. 
dl,d2, d3.. .dn-l,dnerdata 
på linien (kun d2-dn-l berø¬ 
res af kodningen). 


Programmet er skrevet til en 
VIC uden hukommelsesud¬ 
videlser, og det kanikke uden 
videre anvendes på maskiner 
med udvidet RAM. 


Nu kan du 
få lyspen 
og paddle 

Lyspen og paddle kan nu 
fås som tilbehør til VIC- 
20 . 

Kort sagt er lyspennen i 
stand til at identificere et 
sted på tv-skærmen, idet 
det registrerer x- og y- 
koordinaterne i det øjeblik 
den rammes af billedrørets 
elektronstråle, og en padd¬ 


le er en mere udviklet joy- 
stick (se omtalen i dette 
nr.). Hvor joy-stick’en er 
forsynet med fire kontak¬ 
ter, der kan registrere i 
hvilken retning, styrepin¬ 
den presses, er en paddle 
forsynet med potentiome¬ 
tre, der også kan registrere, 
hvor LANGT pinden pres¬ 
ses i den pågældende ret¬ 
ning. 

Begge disse udstyrsdele vil 
vi vende tilbage til. Her kan 
det blot oplyses, at prisen 
for lyspennen er 650 kr., og 
en paddle koster 340 kr. 
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VIC 


Fire på stribe 
spilles på VIC 


Spil af alle tænkelige (og un¬ 
dertiden utænkelige) arter 
optager mange VIC-20-bru- 
gere. 

Jens Jakobsen i Herning har 
fremstillet den VIC-version 
af det populære 4 på stribe¬ 
spil. De to spillere skiftes til at 
flytte en markør frem og til¬ 
bage i den øverste linie - og 
når den står over den kanal, 


man vil putte sin brik i, udlø¬ 
ser man den ved at trykke på 
en af funktionstasterne. 

Jens Jakobsen giver følgende 
brugsanvisning til spillet: 

To deltagere spiller på et net 
bestående af 10 rækker og 10 
søjler. 

1. Programmet loades fra 
båndoptager. 


2. Skriv: RUN og tryk på 
RETURN. Indtast F1 el¬ 
ler F7. 

3. F3 flytter cursoren til høj¬ 
re. 

4. F5 flytter cursoren til ven¬ 
stre. 

5. F1 lægger et »Hjerte« i 
den søjle, hvor cursoren er 
placeret. 

6. F7 lægger en »Klør« i den 
søjle, hvor cursoren er 
placeret. 

7. Der er ca. 6 sek. interval 
mellem hvert drop, hvor 
programmet scanner ver¬ 
tikalt, horisontalt og dia¬ 


gonalt for at konstatere, 
hvorvidt det sidste drop 
har resulteret i 4 ens på 
stribe? 

- Skulle det være tilfældet, 
vil grænsefarven og de på¬ 
gældende 4 på stribe skifte 
kulør til et akkompagne¬ 
ment af forskellige lydef¬ 
fekter, således at ingen 
kan være i tvivl om, hvem 
der har vundet. 

8. Nyt spil startes ved at tryk¬ 
ke på R. 

Vær opmærksom på, at far¬ 
ve- og skærmadresserne 
ændres, når der udvides ud 
over 8K. 


REABV. 


løø REM J. JAKOBSEN, LVNGENS KVT. 256, 7400 HERNING, 

llø PRINT"3INDTAST HVEM DER BEGYNDER F1 EL. F?" 

120 PRINT "FUNKTIONSTASTERNE BRUGES SRRBAN : “ 

130 PRINT 

14ø PRINT "F1=BEN ENE SPILLER " 

150 PRINT "F3-FLYT TIL VENSTRE" 

160 PRINT "F5=FLVT TIL HØJRE" 

I7ø PRINT "F7=BEN ANDEN SPILLER" 

180 F'RINT"R=REF’ETER SPILLET" 

180 INPUT AT- IF ATO"Fl" AND ATC "F?" THEN GOTO 190 
2øø IFH#= "F1"THENBT="II" : PRINT" 1" = G0T0229 
210 BT="B" 

22ø DIM B<23> 

23ø PR I NT “T 

240 XK=768ø : XF=384øø:BK=8142:FK=XF-XK : VI=36879 

25ø POKE 36878,15 

26ø L=36876 : T=22ø : Tø=255 

27ø 

28ø FOR V=ø TO 22 STEP 2 
29G 

300 POR X=2 TO 2ø STEP 2 
310 POKE XK+X+22*V,67 
320 POKE XF+X+22#V,0 
330 POKE XK+66+22#V,48+V/2 
34U POKE XF+b6+22#V,F 
350 NEXT 
360 NEXT 

37ø S1 =-36874 : S2=36875 
380 84=36877 
390 FOR X=1 TO 21STEP2 
4øø FOR V=1 TO 21STEP2 
41ø POKE XK+X+22*V,66 
420 POKE XF+X+22*V,0 
430 NEXT 
448 NEXT 

450 C-2-D-20 E=2 

460 FOR X=C TO D STEP E 

47ø E 0-0 =21 

480 NEXT 

490 X=2 

5øø IFAT="S"ANDX<2øTHENX-X!2 
51ø IFAT= "II"ANDX>2THENX=X-2 


770 POKE GK,102 

780 IF Y=B(X) THEN 850 

790 POKE L,Tø-V 

8øø POKE PK,S 

81ø POKE PF,F 

82ø FOR 1=1 TO 20:NEXT 

S3ø POKE QK,32 

840 NEXT 

85ø POKE PK,S 

86ø B<X)=B<X)-2 

87ø POKE L,T 

880 POKE QK,32 

890 POKE PF,F 

9øø FOR 1=1 TO 2ø NEXT 

910 POKE L,ø 

92ø G0SUB950 

93ø GOTOSøø 

940 REM 

520 POKE XK+X+22,102 
53ø POKE XF+X+22,6 
•54ø REMGØSUB550 

550 REMFORI■=1TO1øøø:NEXT FRINT"T 

560 GETRT : IFAT=""0RRT=BTTHEN56ø 

570 IF RT=" RNDB < X > 32THEN 640 

580 IF RT= " II" ANDB < X ) >2THEN 650 

590 POKE XF+X+22,1 

6øø POKE L,200 

610 FOR 1=1 TO 8 NEXT 

620 POKE L,ø 

630 GOTO 5øø 

640 S=S3:F=2:G0T0660 

650 S=8S : F=5 

66ø POKE L,250 

670 FOR 1=1 TO lø NEXT 

680 POKE L,ø 

69ø FOR Y=3 TO B<X)STEP 2 

7øø POKE XK+X+22,F 

718 PK=XK+X+22#Y 

72ø PF=XF+X+22#Y 

730 QK=XK+X+22 

74ø QF=XF+X+22 

75ø POKE PK-44,32 

76ø POKE QF,F 
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Det allersidste program 


Kan man lave et program, der 
programmerer? 

Sådan spørger Jesper Aaen, 
Espergærde. Og svaret er, at 
det kan man faktisk godt. 
Der findes allerede adskillige 
sådanne programmer til sto¬ 
re datamaskiner, men også til 
CBM’s større mikrodatama¬ 
ter og f.eks. til Apple II kan 


man få programmer, der 
programmerer. 

Disse programmer virker på 
den måde, at man først for¬ 
tæller programmet i detaljer, 
hvad det er for et produkt, 
man ønsker. Når dette er 
sket, går programmet i gang 
med at programmere. Det 
udnytter alle de muligheder, 


der findes i den pågældende 
datamat og dens version af 
Basic. Slutproduktet er et 
velfungerende og pålideligt 
program, der dog hverken er 
dokumenteret med REM- 
sætninger, eller i grunden er 
særligt genialt. 

Men programmøren er blevet 
befriet for et anseelig rutine- 


95ø PQKEXK+28,150■POKEXK+30,133 : PQKEXK+32,142 

96ø FORI=28T036STEP2 : P0KEXF+ 1,6- NEXT 

97ø YL=21-B<X)-2 : Et-Rt 

980 DEFFNP(X> =BK+X+Xø-22#<M*Kø+Vø+VL> 

990 IFVLCøTHENVL=ø 


POKEXK+34,148 F'OKEXK+36, 


løøø FORM=-1T01 ; P9=ø 

1010 IFM=øTHENXø=ø H3=-6 : H4=ø : 0=1 : F0RVø=H3T0H4STEp2 : fiQSI IB1100 : NEXT F'9= 
!ø2ø FORK1=-6T0øSTEP2 
1030 P9=8 


1ø4ø F0RXø=X1TOX1+6STEP2 
lø5ø GOSUBlløø 
1060 NEXTXø,Xl,M 

1070 FORI=28T036STEP2:POKEXF+I,1 : NEXT 
1080 RETURN 


1090 STOP 


11 øø IFFNP< X > <768øORFNP (X »8185THENF'9=ø : GOT01170 
lllø IFX+Xø<20RX+Xø>20THENP9=ø:GOTO1170 
1120 REMPOKEFNP(X),87 P0KEFK+FHP<X),5 
1130 PE-PEEK ( FNF' (X ) > 

114ø IFPE=320RPE=67THEHPE=ø 
1150 P9=P9-PE* , ::PE=S> 

1160 IFF'9=4#STHEN1190 
1170 RETURN 
1130 STOP 

1190 F0RG= 138T0254STEP. 5 POKEL , G 
1200 F'OKEV 1,24+1 NT ( <254-G > / 15.5 ) 

1210 NEXT 

1220 F'OKES 1, ø; POKEVI, 27 
1230 IF0=lTHEN133ø 
124ø F0RXø=X1TOX1+6STEP2 
125ø F9=INT <RNDC1> *8> 

126ø REMIFF9=10RF9>7THENF9=7 

127ø POKEL,24ø 

1280 P0KEFK+FNP<X),F9 

1290 F0RI=lT04ø : NEXT 

13øø POKEL,ø 

1310 NEXT 

1320 GOTO1420 

133ø F0RV3=H3T0H4STEF'2 

1340 F 9= I NT C RND (O *8) 

1350 REMIFF9=10RF9>7THENF9=7 
1360 FF-FK+EK+X+Xø-22*CM#Xø+Vø+VL> 

1370 POKEL,24ø 
1380 F'OKEFP, F9 
1390 FORI=1T040 : NEXT 
14øø POKEL,ø 
1410 NEXT 

142ø GETB$ IFB$0"R"THEN1230 
1430 RUN 
1440 STOP 


161 


ø Yø=ø 


0=ø 


RERDV. 


arbejde. Og det er netop for¬ 
målet med »programmet, der 
programmerer«. 

Man kan således ikke bare 
bede programmet om at »la¬ 
ve et tekstbehandlingspro¬ 
gram« eller »lave et skattebe¬ 
regningsprogram« . 

Når Jesper Aaen har rettet sit 
spørgsmål til VI & VIC, hæn¬ 
ger det nok sammen med, at 
han gerne vil vide, om sådan¬ 
ne programmer vil fremkom¬ 
me til VIC 20. 

Men det er nu meget tvivl¬ 
somt. Dels fordi sådanne 
programmer kræver meget 
stor lagerplads for at funge¬ 
re, og dels fordi de allerfleste 
af os faktisk har købt VIC-20 
for selv at programmere. 

Det overlader vi ikke gerne til 
et program . .. 


GOTO 
i stedet 
for RUN 

Når man arbejder med et 
program og tester det, 
kommer man undertiden 
ud for, at man gerne ville 
genstarte programmet 
uden at alle variabler slet¬ 
tes. 

Her kommer det på tværs, 
at der i kommandoen RUN 
er indbygget en CLR, der 
sletter alle variable, men 
man kan komme uden om 
RUN ved at bruge GOTO. 
Man skal blot kende linie¬ 
nummeret, hvor man skal 
starte programkørslen. 
Hvis f.eks. programmet 
starter ved 100, skriver 
man blot GOTO 100 og 
trykker RETURN. Så kø¬ 
rer programmet igen fra 
100. 

Denne manøvre kan f.eks. 
være nyttig, når program¬ 
met har fejl, der standser 
det. Så duer ordren CONT 
nemlig heller ikke. 
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Fra VI & VIC til læserne: 

Programmet, der kan holde 
styr på alle udgifter 
og indtægter året rundt 


De fleste pengeinstitutter ud¬ 
leverer såkaldte budgetske¬ 
maer, hvor alle faste poster 
kan føres ind. Måned for må¬ 
ned, post for post - og så kan 
man lægge sammen på langs 
og på tværs. 

Det program, vi her præsen¬ 
terer, kan gøre det samme - 
men fordi alle beregningerne 
foregår automatisk, er det 
meget let at skaffe sig over¬ 
blik over, hvilke konsekven¬ 
ser, det får, når nye udgifter 
kommer til - eller indtægter 
ændres. Ydermere er pro¬ 
grammet indrettet, så alle po¬ 
ster kan fordeles på ni for¬ 
skellige konti. 

Sådan bruges 
programmet 

Brugeren må som det aller¬ 
første gøre sig klart, hvilke 
konti, udgifterne er fordelt 
på, og når det er gjort, går 
man ind i programmets linie 
60000, hvor de første otte 
konti er døbt Kl - K8, og det 
er en let sag at ændre disse be¬ 
tegnelser til noget mere me¬ 
ningsfyldt. 

Man kan også ændre beteg¬ 
nelsen på konto 9, som er for¬ 
synet med navnet »IND- 
TAEGTER«, men læg mær¬ 
ke til, at konto 1 -8 er udgifts¬ 
konti, mens konto 9 som den 
eneste er en indtægtskonto. 
Når dette er klaret (og en kopi 
af det korrigerede program er 
SAVEt), er vi parat til at 
RUN VI & VIC’s ØKO-SYS. 
Første spørgsmål er, om der 
skal hentes data fra tape - og 
da programmet er nyt, er det 
naturligvis ikke tilfældet. 
Herefter spørges, efter max. 
antal poster - og der er ind¬ 
bygget det raffinement, at 
man ikke behøver gøre plads 


til mere end, man faktisk har 
brug for. Når der spørges ef¬ 
ter maximum, hænger det na¬ 
turligvis sammen med, at 
programmet med en DIM- 
kommando (i linie 1000) sæt¬ 
ter størrelsen på de tabeller, 
der opereres med. 

Når man lægger sine data på 
bånd, bliver det kontrolleret, 
om der er tomme pladser i ta¬ 
bellerne, og efterliggende da¬ 
ta »rykkes« op. Samtidig tæl¬ 
les det op, hvor mange po¬ 
ster, der rent faktisk er indta¬ 
stet - og der gøres plads til det¬ 
te antal plus fem nye, så der 
altid er plads til nye poster. 
Når man næste gang bruger 
programmet og henter sine 
data fra båndoptageren, 
foretages dimensioneringen 
automatisk. 

Sparer plads 
kører hurtigere 

Denne detalje har betydning, 
fordi man er sikker på, at 


man ikke støder hovedet mod 
loftet. Når DIMensionerin- 
gen altid holdes lavt, sparer 
man plads - og hvad der er 
nok så væsentligt: Program¬ 
met kører hurtigere, fordi det 
ikke behøver teste indholdet i 
en lang række variable, som 
blot er tomme. 

Efter disse indledende for¬ 
malia er brugeren fremme 
ved programmets hovedme¬ 
nu, hvor der kan vælges mel¬ 
lem 8 aktiviteter: 

1. LAGRE DATA 

2. MAANEDSOVERSIGT 

3. OPRETTE NY POST 

4. SLETTE EN POST 

5. REVIDERE EN POST 

6. LISTE EN MAANED 

7. LISTE EN KONTO 

8. LISTE EN POST 

1. Lagre data 

Selv om det er de først nævnte 
mulighed, er det den, der skal 
bruges sidst, nemlig når de 
ændrede oplysninger i syste¬ 


met skal lagres på kassette¬ 
bånd. 

Kommer man uforvarende til 
at trykke på 1-tallet, inden 
man er klar til at lagre, kan 
det klares ved at trykke på en 
af båndoptagerens knapper - 
f.eks. en af spoleknapperne. 
Så gennemføres lagringspro¬ 
ceduren, og den data FILE, 
der er åbnet, bliver pænt luk¬ 
ket igen - hvorefter program¬ 
met vender tilbage til hoved- 
menu’en. I denne sekvens 
skrives det i øvrigt på skær¬ 
men, hvor mange poster, der 
er i systemet. 

2. Månedsoversigt 

Denne subrutine viser balan¬ 
cen måned for måned. Nega¬ 
tive tal har en afvigende far¬ 
ve, og balancen for alle 12 
måneder præsenteres, lige¬ 
som der beregnes et gennem¬ 
snit pr. måned. 

3. Oprette ny post 

Her foregår indtastningen af 
alle oplysninger. Først tek¬ 
sten til den nye post, derefter 
beløbt pr. gang og nummeret 
på den konto, det drejer sig 
om. Herefter må man måned 
for måned taste et »J«, hvis 
posten er aktuel i den måned, 
der vises på skærmen. Tek¬ 
nikken, der er benyttet er, at 
der oprettes en streng varia¬ 
bel, der modsvarer posten 
(den hedder M$(T)). For en 
post, der skal betales i juni og 


Bestillingskupon til VI & VIC 

□ Jeg ønsker abonnement på VI & VIC. 

Prisen er 85 kr. for seks numre - frit tilsendt. 

Abonnementet starter med nr. 4, men af de tidligere udgaver vil jeg gerne 
have nr. ID nr. 2 □ nr. 3 □ (sæt kryds, hvis tidligere numre ønskes). 

□ Jeg vil gerne have en kassettebånd-kopi af VI & VIC’s ØKO-SYS- 
program. Som abonnent på VI & VIC betaler jeg kun 15 kr. for båndet. 

Beløbet (15 kr.) vedlægges. 

NAVN: _ 

ADRESSE:_ 

POSTNR.: _ BY: _ 

Kuponen sendes til VI & VIC, Kornager 29, 7100 Vejle. 
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december, ser den således ud 
»NNNNNJNNNNNJ«, 
mens en post, der skal betales 
hver måned, ser således ud: 
»JJJJJJJJJJJJ«. 

4. Slette en post 

Her skal man skrive teksten 
til den post, der skal slettes, 
men det er ikke nødvendigt at 
skrive hele postens tekst. 
Man skriver blot så mange el¬ 
ler få tegn, som man regner 
med er nødvendige for at ad¬ 
skille den fra andre tekster i 
systemet. 

Herefter vil de tekster, der 
opfylder betingelserne, blive 
vist på skærmen sammen 
med oplysning om beløb pr. 
gang, hvilke måneder, po¬ 
sten er aktuel samt, hvor 
meget det er i alt pr. år. en¬ 
hver anden tast end »J« får 
programmet til at gå videre 
uden at slette - og et»J« udlø¬ 
ser endda et spørgsmål, om 
man er sikker - og først efter 
det andet »J« slettes posten. 

5. Revidere en post 

I denne rutine søges posterne 
ud på samme måde i 4. Det vil 
sige, at man behøver at skrive 
de første bogstaver i teksten 
til posten. 

Det kan på denne måde lade 
sig gøre at ændre teksten, be¬ 
løbet og konto-nummeret, 
men hvis betalingsmåneder¬ 
ne skal ændres, må posten 
slettes og oprettes påny. 

6. Liste en måned 

Her vises, hvilke poster der 
skal betales, og nederst ind¬ 
tægterne i den pågældende 
måned, endelig vises en linie 
med månedens balance. 

7. Liste en konto 

Her vises alle de poster, der 
hører til den pågældende 
konto, der vises, hvor meget 
der betales (tjenes) på hver 
enkelt post, hvor meget det er 
i alt og hvilket månedsgen¬ 
nemsnit, kontoen har. 

8. Liste en post 

Her kan en enkelt post søges 
på samme måde som i 4. og 5. 


Man behøver kun skrive de 
første tegn, og skriver man 
f.eks. et »A«, vil alle de po¬ 
ster, hvis tekst begynder med 
»A«, blive vist på skærmen. 
Når man har fundet, den øn¬ 
skede, kan man komme tilba¬ 
ge til hoved-menuen ved at 
indtaste et »S«. 

Gratis program 

I sidste nummer af VI & VIC 
tilbød vi abonnenterne, at de 
kunne få en bånd-kopi af et 
program mod blot at betale 
de direkte omkostninger ved 
distributionen, 15 kr. 
Interessen har været så stor, 
at vi synes, succes’en skal 
gentages, og derfor kan det 
her omtalte ØKO-SYS pro¬ 
gram erhverves på samme 
fordelagtige vilkår. 

Brug bestillingskuponen el¬ 
ler send os et par ord, hvis du 
helst vil undgå at klippe i bla¬ 
det. For at lette administrati¬ 
onen, vil vi bede om at bånde¬ 


ne forudbetales (f.eks. med 
check eller frimærker). 

Dette tilbud gælder VI & 
VIC-abonnenter og kun ind¬ 
til den 1. oktober. 

Om programmet 

ØKO-SYS programmet har 
været gennemtestet, men ik¬ 
ke mere end, at der sagtens 
kan være en spidsfindig fejl i 
det. Men idéen med at udsen¬ 
de programbåndene er heller 
ikke at give læserne et fikst og 
færdigt produkt - snarere at 
give et grundlag at arbejde vi¬ 
dere på for den, der vil per¬ 
fektionere programmet, læg¬ 
ge farver og lyd på det... 
Programmet fylder 3745 by¬ 
tes, så man må altså råde over 
lidt ekstra hukommelse for at 
få glæde af det - og uden en 
båndoptager til at gennem 
oplysningerne, er det en tvivl¬ 
som glæde at blokere sin VIC 
med denne sag. 


VIC programmer 


Lad andre få mulighed for at 
købe de programmer, du ud¬ 
vikler til VIC. 

Rubrikannoncerne her i bla¬ 
det koster 1 kr. pr. spaltemil¬ 
limeter, og for overskuelig¬ 
hedens skyld bør annoncerne 
bygges op på samme måde, 
som det kan ses her på siden. 
Det vil sige, at annoncetek¬ 


sten skal indeholde oplysnin¬ 
ger om nødvendigt udstyr, 
hvilket medium, program¬ 
met findes på (kassettebånd, 
disk eller cartridge), prisen - 
og naturligvis oplysninger 
om, hvor man kan købe 
programmet. 

Brug kuponen til din annon¬ 
ce. 


VIC program sælges 

Programmets navn:_ 

Beskrivelse: _ 


Hardware:_Medium:_ 

Pris: _ 

Købes hos: _ 

Kuponen sendes til VI & VIC, Kornager29, 7100 Vejle. 


BANKBOG 

Programmet holder en orien¬ 
teret om bevægelser på ens 
bankbog/checkhæfte. Man 
indtaster de beløb som hæ¬ 
ves/indsættes, og herefter 
kan programmet udskrive en 
oversigt over samtlige poste¬ 
ringer. For hver postering 
udskrives både dato, beløb, 
saldo. Desuden udskrives 
den opnåede rente til dags da¬ 
to. Samtlige indtastninger 
lagres på bånd, så de kun skal 
indtastes én gang. 

Hardware: VIC-20 (3583 by¬ 
tes). 

Medium: Kassettebånd. 

Pris: 75 kr. incl. forsendelse 
og bånd. 

Købes hos: Fremsend bestil¬ 
ling vedlagt check (ellers til¬ 
lægges efterkravsgebyr på 
prisen) til: René Carlsen, Kil¬ 
deholm 10, 2600 Glostrup. 


KALAHA 

Kalaha er et gammelt afri¬ 
kansk kuglespil. Du spiller 
mod VIC. 

Hardware: VIC-20 (3583 by¬ 
tes). 

Medium: Kassettebånd. 

Pris: 75 kr. (check). 

Købes hos: J. B. computing, 
8210 Århus V. 

Telf. (06) 15 60 13. 


VICMARE 

PARK 

Kom levende igennem par¬ 
ken ved at undgå de forskelli¬ 
ge forhindringer og uhyrer. 
Programmet kan køres på 
både s/h- og farve-TV og er 
med bevægelig grafik og go¬ 
de lydeffekter. 

Hardware: VIC-20 (6107 by¬ 
tes). 

Medium: Kassette. 

Pris: 75 kr. incl. kvalitets¬ 
bånd, forudbetalt. 

Købes hos: Jan Thyregod, 
Grænsevænget 1,2791 Drag¬ 
ør, telf. (01) 53 38 38. 
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commodore 

COMPUTER 



Den personlige computer, VIC-20 fra Commodore, 
er blevet mange danskeres første skridt ind i den spændende computeralder. 

Nu kommer næste skridt for dem, der vil udbygge deres VIC-20: 

Printeren, VIC-1515 o g diskettestationen, VIC 1540 

- to nyheder, som sammen med VIC-20 giver et komplet og særdeles ydedygtigt dataanlæg til en 
overkommelig pris. En velegnet løsning til mindre administrative opgaver. 


VIC-1515 

En rigtig papirprinter. Med 80 karakterer 
og en hastighed på 30 tegn/sek. i A4-format. 
Pris kr. 4.945,- incl. moms. 

• Store og små bogstaver. 

• »negativ skrift«. 

• cifre. 

• grafiske tegn. 

• egne programmerede tegn. 

• placering og flytning af tekstafsnit. 

• »traktorfremføring« af papirbanen. 


VIC-1540 

Diskettestationen, som udvider lagerkapaciteten til I75K 
bytes svarende til 50 A4-sider. Sammen med VIC-20 særdeles 
velegnet til programudvikling. Hurtig dataoverførsel. Nem 
betjening. 

Pris kr. 6.925,- incl. moms. 

Se og prøv det komplette VIC-dataanlæg hos den 
autoriserede VIC-forhandler. 

Vi søger fortsat forhandlere på Sjælland og Fyn. 


VI & VIC udkommer hver anden 
måned med alt det nyeste stof, 
som kan gøre det mc 
interessant at arbejde .ned VIC. 

I abonnement koster VI & VIC 
85,- kr. for seks numre frit 
tilsendt. Brug kuponen til at 
bestille bladet. 


i *'*»«&£* 


SJÆLLAND: Betafon Radio, Istedgade 79. 1650 Kbh. V, 01-310273 Samfundslitteratur, Rosenørns Alle 11, 1970 Kbh. V, 01-351942 CR- 
Commander Radio, Smallegade 4, 2000 Kbh. F, 01-343422 Poly Data Microcenler, Strandboulevarden 63, 2100 Kbh. 0 , 01-420705 L. A. 
Electronic, Røde Mellemvej 119, 2300 København S, 01-551540 Datacare, Tæbyvej 17, 2610 Rødovre, 01-705858 W. Rolf Pedersen, Ellekaer 
12, 2730 Herlev, 02-915511. Fiolstraede 14, 1171 Kbh. K, 01-137056 Polyteknisk Boghandel, Anker Engelundsvej 2, 2800 Lyngby, 02-881488 
Bo-el Data, Tarmsborgvej 19. 3400 Hillerød, 02-253131 JE Konlorcenler, Algade 34, 4660 St. Heddinge, 03-703332 
LOLLAND/FALSTER: JD-microdata, Vestergade 15A, 4930 Maribo, 03-881700 FYN: EDB Butikken, Rødegårdsvej 104, 5000 Odense C, 
09-147660 Werners Radio Elektronik, Bredgade 5, 5450 Otterup, 09-823333 JYLLAND: C. P. Kontorsystemer, Rådhustorvet 5, 6400 Søn 
derborg, 04-424546 Teknik Huset, Slotsvej 5, 6510 Gram, 04-829747 Kurt Øland, Jernbanegade 11,6700 Esbjerg, 05-125299 Semicap Data 
Kongensgade 57, 7000 Fredericia, 05-931565 Logic Design, Ribisvej II, 7400 Herning, 07-221300 Pe-Co Computer System, Struervej 61 
7500 Holstebro. 07-414646 Helmholt Elektronik. Farvervej 2. 7600 Struer, 07-852611 Elektroniklageret, Væselvej 132, 7800 Skive, 07 
526177 Akademisk Boghandel, Universitetsparken, 8000 Århus C, 06-128844 Clemens Papirteknik, Clemenstorv 8, 8000 Århus C, 06 
133922 Editor, Sønderalle 5, 8000 Århus C, 06-127720 Hadsten Elektronik, Nedre Hadstenvej 3, 8370 Hadsten, 06-980408 Djursland Data 
Nordhavnsvej 1,8500 Grenå, 06-326465 Silkeborg Elektronik, Nygade 22, 8600 Silkeborg, 06-829747 Bildata A/S, Adelgade 48, 8600 Skan 
derborg, 06-525344 Dansk Computer Center, Kattesund 13, 8700 Horsens, 05-611110 Djursland Data. Kirkegade 4, 8900 Randers, 06- 
434200 Knud Engsig Konlorudstyr. Bispensgade 3, 9100 Aalborg, 08-126666 Norad, Strandvejen 43. Lønstrup. 9800 Hjørring, 08-960188 
GRØNLAND: Musikhuset Julianehib, Box 160, 3920 Julianehåb, Grønland 0014-38133 




Jeg ønsker abonnement på VI & VIC. 


NAVN: 


ADRESSE: _ 


POST NR.: 


BY: 


Indsendes til VI & VIC 
Kornager 29, 7100 Vejle 































